home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh07a.d64 / beispiel gosub (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  382 b   |  31 lines
  1. 10 REM BEISPIELPROGRAMM
  2. 20 :
  3. 30 :
  4. 40 !EINGABE:
  5. 50 :
  6. 60 !BERECHNUNG:
  7. 70 :
  8. 80 !AUSGABE:
  9. 90 :
  10. 95 :
  11. 100 END
  12. 110 :
  13. 120 :
  14. 130 REM EINGABE
  15. 140 PRINT"[147]";
  16. 150 INPUT "DURCHMESSER";D
  17. 160 RETURN
  18. 170 :
  19. 180 REM BERECHNUNG
  20. 190 A=((null)*D^2)/4
  21. 200 RETURN
  22. 210 :
  23. 220 REM AUSGABE
  24. 225 REM BASIC-BEFEHL MIT ANFUEHRUNGSZEICHEN !!!
  25. 230 !"PRINTA":
  26. 240 RETURN
  27. 250 :
  28. 260 REM "PRINTA"
  29. 270 PRINT"[147]KREISFLAECHE A=";A;"MM^2"
  30. 280 RETURN
  31.